10 A$="PROGRAM NAME"
20 PRINT"[147]LOAD A$,8":PRINT"RUN"
30 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END